home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / plnk.src < prev    next >
Text File  |  1991-10-19  |  2KB  |  93 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ PLNK by Nelson W. Wallace
  3. DIR
  4.   BBOD2
  5.     \<< "BBOD2"
  6. "T in K, \Gl's in \Gmm"
  7. {
  8. "  :T: 
  9.  :\Gl1: 
  10.  :\Gl2: "
  11. { 1 0 } } INPUT
  12. OBJ\-> DTAG '1_\Gm'
  13. \->UNIT '\Gl2' STO DTAG
  14. '1_\Gm' \->UNIT '\Gl1'
  15. STO DTAG '1_K'
  16. \->UNIT 'T' STO 4 FIX
  17. BBLST TMENU CLLCD
  18. "" "" ""
  19. "\.S W  / W / \.S dWdT"
  20.     \>>
  21.   PLOT
  22.     \<< "PLOT" 'WW'
  23. RCL STEQ 1 35 XRNG
  24. '\Gl1' INDEP ERASE
  25. AUTO DRAW PICT RCL
  26. \-> wwp
  27.       \<< 'WP' RCL
  28. STEQ ERASE AUTO
  29. DRAW PICT RCL \-> wpp
  30.         \<< wwp {
  31. # 0d # 0d } wpp GOR
  32. PICT STO 0 FIX {
  33. (1,0) "WAVELENGTH"
  34. "BLACKBODY" } AXES
  35. LABEL DRAX { }
  36. PVIEW
  37.         \>>
  38.       \>>
  39.     \>>
  40.   WW 'C1/(\Gl1^5*(EXP
  41. (C2/(\Gl1*T))-1))'
  42.   WP 'C3/(\Gl1^4*(EXP
  43. (C2/(\Gl1*T))-1))'
  44.   \Gl '1_\Gm'
  45.   T '300_K'
  46.   BBLST { { "WATTS"
  47.     \<< '\.S(\Gl1,\Gl2,C1/(
  48. \Gl^5*(EXP(C2/(\Gl*T))-
  49. 1)),\Gl)' \->NUM 6 FIX
  50.     \>> } { "PHOTN1"
  51.     \<< '\.S(\Gl1,\Gl2,C3/(
  52. \Gl^4*(EXP(C2/(\Gl*T))-
  53. 1)),\Gl)' \->NUM 4 SCI
  54.     \>> } { "Watts2 "
  55.     \<< 'C1/(\Gl1^5*(
  56. EXP(C2/(\Gl1*T))-1))'
  57. EVAL
  58.     \>> } { "Photn2 "
  59.     \<< 'C3/(\Gl1^4*(
  60. EXP(C2/(\Gl1*T))-1))'
  61. EVAL
  62.     \>> } { "Watts3"
  63.     \<< '\.S(\Gl1,\Gl2,C1*
  64. C2*EXP(C2/(\Gl*T))/(\Gl
  65. ^6*T^2*(EXP(C2/(\Gl*T
  66. ))-1)^2),\Gl)' \->NUM
  67.     \>> } { "Photn3"
  68.     \<< '\.S(\Gl1,\Gl2,C3*
  69. C2*EXP(C2/(\Gl*T))/(\Gl
  70. ^5*T^2*(EXP(C2/(\Gl*T
  71. ))-1)^2),\Gl)' \->NUM
  72.     \>> } }
  73.   C1 '37415_W*\Gm^4/
  74. cm^2'
  75.   C2 '14387.9_\Gm*K'
  76.   C3 '1.88365E23_\Gm^
  77. 3/(s*cm^2)'
  78.   \Gl1 '35.85_\Gm'
  79.   \Gl2 '12_\Gm'
  80.   PPAR {
  81. (1,-2.55163531432E16)
  82. (35,1.70109020955E17)
  83. \Gl1 0 { (1,0)
  84. "WAVELENGTH"
  85. "BLACKBODY" }
  86. FUNCTION Y }
  87.   EQ 'C3/(\Gl1^4*(EXP
  88. (C2/(\Gl1*T))-1))'
  89.   IERR '
  90. .641028178082_W/cm^
  91. 2'
  92. END
  93.